unit uHintForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, cxControls, cxPC, OleCtrls, SHDocVw;

type
  THintForm = class(TForm)
    Image1: TImage;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    WebBrowser1: TWebBrowser;
    WebBrowser2: TWebBrowser;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ShowData(pic, title, p1, p2, p3, p4: string);
  end;

var
  HintForm: THintForm;

implementation

{$R *.dfm}

{ THintForm }

procedure THintForm.ShowData(pic, title, p1, p2, p3, p4: string);
begin
  try
    Image1.Picture.LoadFromFile(pic);
  except
  end;
  Caption := title;
  TabSheet1.Caption := p1;
  WebBrowser1.Navigate(p2);
  TabSheet2.Caption := p3;
  WebBrowser2.Navigate(p4);
  Show;
end;

end.
